home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Networking & Communications / PATHWORKS Animation / PATHWORKS Interface / card_4617.txt < prev    next >
Text File  |  1990-12-12  |  5KB  |  245 lines
  1. -- card: 4617 from stack: in
  2. -- bmap block id: 2858
  3. -- flags: 0000
  4. -- background id: 2640
  5. -- name: Animation Player
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide cd btn "playOrderHiliter"
  9. end openCard
  10.  
  11.  
  12.  
  13. -- part 5 (field)
  14. -- low flags: 00
  15. -- high flags: 0007
  16. -- rect: left=332 top=86 right=237 bottom=427
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 3
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Placeholders
  25.  
  26.  
  27. -- part 6 (field)
  28. -- low flags: 01
  29. -- high flags: 2004
  30. -- rect: left=222 top=70 right=298 bottom=486
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 156
  35. -- text size: 14
  36. -- style flags: 16640
  37. -- line height: 18
  38. -- part name: PlayOrder
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   --‚àÜ select and highlight line
  42.   put SelectionAndHiliter() into lineNumber
  43.   --‚àÜ Convert line number to the contents of the line
  44.   do "put line " & lineNumber & " of " & name of me & " into name"
  45.   --‚àÜ test for empty selection
  46.   if name is "" then
  47.     play cymbal
  48.     answer "Click directly on your choice" with "Try again!"
  49.     exit mouseUp
  50.   end if
  51.   --‚àÜ Load the animation
  52.   put line lineNumber of cd fld "playOrder" into theClip
  53.   put theClip into theMovie
  54.   playmovie theMovie,movieStage,moviePreload
  55.   playmovie movieStage,movieClick,movieNoupdate
  56.   put "Black" into endTheShow
  57.   playmovie endTheShow, movieStage
  58. end mouseUp
  59.  
  60. on mouseEnter
  61.   changeCurs 6069
  62. end mouseEnter
  63.  
  64. on mouseLeave
  65.   changeCurs 69
  66. end mouseLeave
  67.  
  68.  
  69.  
  70.  
  71. -- part 7 (button)
  72. -- low flags: 80
  73. -- high flags: 4000
  74. -- rect: left=223 top=111 right=129 bottom=483
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: playOrderHiliter
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   hide me
  86.   click at the clickLoc
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 11 (field)
  92. -- low flags: 01
  93. -- high flags: 0000
  94. -- rect: left=0 top=0 right=37 bottom=512
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 0
  98. -- font id: 156
  99. -- text size: 24
  100. -- style flags: 2304
  101. -- line height: 32
  102. -- part name: 
  103.  
  104.  
  105. -- part 22 (button)
  106. -- low flags: 00
  107. -- high flags: 8004
  108. -- rect: left=28 top=209 right=244 bottom=130
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Play All
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   hide card window
  120.   --‚àÜ Load the animation
  121.   repeat with j = 1 to the number of lines of cd fld "playOrder"
  122.     if the mouseClick then exit repeat
  123.     put line j of cd fld "playOrder" into theMovie
  124.     playmovie theMovie,movieStage,moviePreload
  125.     playmovie movieStage,movieClick,movieNoupdate
  126.     if the mouseClick then
  127.       put "Black" into endTheShow
  128.       playmovie endTheShow, movieStage
  129.       show card window
  130.       exit mouseUP
  131.     end if
  132.   end repeat
  133.   put "Black" into endTheShow
  134.   playmovie endTheShow, movieStage
  135.   show card window
  136. end mouseUp
  137.  
  138. on mouseEnter
  139.   changeCurs 6069
  140. end mouseEnter
  141.  
  142. on mouseLeave
  143.   changeCurs 69
  144. end mouseLeave
  145.  
  146.  
  147.  
  148.  
  149. -- part 23 (button)
  150. -- low flags: 00
  151. -- high flags: 0000
  152. -- rect: left=0 top=323 right=342 bottom=33
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 1014 / 1014
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Return
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   go back
  164. end mouseUp
  165.  
  166. on mouseEnter
  167.   changeCurs 6069
  168. end mouseEnter
  169.  
  170. on mouseLeave
  171.   changeCurs 69
  172. end mouseLeave
  173.  
  174.  
  175.  
  176. -- part 25 (field)
  177. -- low flags: 01
  178. -- high flags: 0000
  179. -- rect: left=24 top=71 right=189 bottom=208
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 0
  183. -- font id: 156
  184. -- text size: 18
  185. -- style flags: 0
  186. -- line height: 24
  187. -- part name: 
  188.  
  189.  
  190. -- part contents for card part 6
  191. ----- text -----
  192. Opening Animation
  193. AppleTalk for VMS
  194. DECnet for Macintosh
  195. AppleTalk-to-DECnet Gateway
  196. AppleTalk for VMS Router
  197. VAXshare-Print Services
  198. VAXshare-File Services
  199. MacTerminal
  200. MacX
  201. PCMAIL
  202. Data Access Language
  203. Closing Summary
  204.  
  205. -- part contents for card part 11
  206. ----- text -----
  207.   PATHWORKS Animated Demo
  208.  
  209. -- part contents for background part 17
  210. ----- text -----
  211. Opening Animation
  212. AppleTalk for VMS
  213. DECnet for Macintosh
  214. AppleTalk-to-DECnet Gateway
  215. AppleTalk for VMS Router
  216. VAXshare-Print Services
  217. VAXshare-File Services
  218. MacTerminal
  219. MacX
  220. PCMAIL
  221. DDIF Document Interchange
  222. Data Access Language
  223. Closing Summary
  224. FirstScreen1
  225. FirstScreen
  226. FirstScreen3
  227. FirstScreen4
  228. FirstScreen5
  229. FirstScreen6
  230. FirstScreen7
  231. FirstScreen8
  232. FirstScreen9
  233. FirstScreen10
  234. FirstScreen11
  235. FirstScreen12
  236.  
  237.  
  238. -- part contents for card part 24
  239. ----- text -----
  240. or
  241.  
  242.  
  243. -- part contents for card part 25
  244. ----- text -----
  245. Click on a subject at right to see a single topic or click below to see the entire presentation: